home *** CD-ROM | disk | FTP | other *** search
/ Sprite 1984 - 1993 / Sprite 1984 - 1993.iso / lib / perl / pdev.new.ph < prev    next >
Text File  |  1991-08-11  |  325b  |  15 lines
  1. if (!defined &_PDEVLIB) {
  2.     eval 'sub _PDEVLIB {1;}';
  3.     require 'fs.ph';
  4.     require 'dev/pdev.new.ph';
  5.     eval 'sub PDEV_MAGIC {0xabcd1234;}';
  6.     eval 'sub PDEV_STREAM_MAGIC {0xa1b2c3d4;}';
  7.     if (!defined &max) {
  8.     eval 'sub max {
  9.         local($a, $b) = @_;
  10.         eval "( (($a) > ($b)) ? ($a) : ($b) )";
  11.     }';
  12.     }
  13. }
  14. 1;
  15.